home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_eval.exe / %MAINDIR% / EvalC3 / UPTTreeList.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2001-08-31  |  16.5 KB  |  477 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'UPTTreeList.pas' rev: 3.00
  6.  
  7. #ifndef UPTTreeListHPP
  8. #define UPTTreeListHPP
  9. #include <Menus.hpp>
  10. #include <Commctrl.hpp>
  11. #include <ComCtrls.hpp>
  12. #include <Dialogs.hpp>
  13. #include <Forms.hpp>
  14. #include <Controls.hpp>
  15. #include <Graphics.hpp>
  16. #include <Classes.hpp>
  17. #include <SysUtils.hpp>
  18. #include <Messages.hpp>
  19. #include <Windows.hpp>
  20. #include <SysInit.hpp>
  21. #include <System.hpp>
  22.  
  23. //-- user supplied -----------------------------------------------------------
  24.  
  25. namespace Upttreelist
  26. {
  27. //-- type declarations -------------------------------------------------------
  28. #pragma pack(push, 1)
  29. struct TNMCustomDraw
  30. {
  31.     tagNMHDR hdr;
  32.     int dwDrawStage;
  33.     HDC hdc;
  34.     Windows::TRect rc;
  35.     int dwItemSpec;
  36.     int uItemState;
  37.     int lParam;
  38. } ;
  39. #pragma pack(pop)
  40.  
  41. typedef TNMCustomDraw *PNMCustomDraw;
  42.  
  43. #pragma pack(push, 1)
  44. struct TNMLvCustomDraw
  45. {
  46.     TNMCustomDraw nmcd;
  47.     int clrText;
  48.     int clrTextBk;
  49.     int subItem;
  50. } ;
  51. #pragma pack(pop)
  52.  
  53. typedef TNMLvCustomDraw *PNMLvCustomDraw;
  54.  
  55. #pragma pack(push, 1)
  56. struct TNMTvCustomDraw
  57. {
  58.     TNMCustomDraw nmcd;
  59.     int clrText;
  60.     int clrTextBk;
  61.     int level;
  62. } ;
  63. #pragma pack(pop)
  64.  
  65. typedef TNMTvCustomDraw *PNMTvCustomDraw;
  66.  
  67. enum TPTCustomDrawStage { ptcdsUnknown, ptcdsPrePaint, ptcdsPostPaint, ptcdsPreErase, ptcdsItemPrePaint, 
  68.     ptcdsItemPostPaint, ptcdsItemPreErase, ptcdsItemPostErase };
  69.  
  70. class DELPHICLASS TPTCustomDraw;
  71. class PASCALIMPLEMENTATION TPTCustomDraw : public System::TObject 
  72. {
  73.     typedef System::TObject inherited;
  74.     
  75. private:
  76.     Graphics::TFont* mParentFont;
  77.     Graphics::TFont* mFont;
  78.     bool mfFontChanged;
  79.     Graphics::TBrush* mBrush;
  80.     bool mfBrushChanged;
  81.     bool mfWantItems;
  82.     bool mfNoDefaultDrawing;
  83.     TNMCustomDraw *mpcd;
  84.     int *mpResult;
  85.     bool mfUserResult;
  86.     Graphics::TCanvas* mCanvas;
  87.     void __fastcall OnFontChange(System::TObject* aSender);
  88.     void __fastcall OnBrushChange(System::TObject* aSender);
  89.     int __fastcall GetRawDrawStage(void);
  90.     Windows::TRect __fastcall GetRect(void);
  91.     TPTCustomDrawStage __fastcall GetDrawStage(void);
  92.     Graphics::TFont* __fastcall GetFont(void);
  93.     Graphics::TBrush* __fastcall GetBrush(void);
  94.     Graphics::TCanvas* __fastcall GetCanvas(void);
  95.     HDC __fastcall GetHandle(void);
  96.     bool __fastcall GetIsItem(void);
  97.     int __fastcall GetResult(void);
  98.     void __fastcall SetFont(Graphics::TFont* aValue);
  99.     void __fastcall SetBrush(Graphics::TBrush* aValue);
  100.     void __fastcall SetResult(int aValue);
  101.     
  102. protected:
  103.     virtual void __fastcall Reset(const TNMCustomDraw &acd, int &aResult);
  104.     virtual Graphics::TFont* __fastcall CreateFont(void);
  105.     virtual Graphics::TBrush* __fastcall CreateBrush(void);
  106.     
  107. public:
  108.     __fastcall TPTCustomDraw(const TNMCustomDraw &acd, int &aResult, const Graphics::TFont* aParentFont
  109.         );
  110.     __fastcall virtual ~TPTCustomDraw(void);
  111.     virtual void __fastcall Apply(void) = 0;
  112.     __property int RawDrawStage = {read=GetRawDrawStage, nodefault};
  113.     __property TPTCustomDrawStage DrawStage = {read=GetDrawStage, nodefault};
  114.     __property bool IsItem = {read=GetIsItem, nodefault};
  115.     __property bool WantItems = {read=mfWantItems, write=mfWantItems, nodefault};
  116.     __property int Result = {read=GetResult, write=SetResult, nodefault};
  117.     __property Windows::TRect Rect = {read=GetRect};
  118.     __property Graphics::TCanvas* Canvas = {read=GetCanvas};
  119.     __property HDC Handle = {read=GetHandle, nodefault};
  120.     __property Graphics::TFont* Font = {read=GetFont, write=SetFont};
  121.     __property Graphics::TBrush* Brush = {read=GetBrush, write=SetBrush};
  122.     __property bool NoDefaultDrawing = {read=mfNoDefaultDrawing, write=mfNoDefaultDrawing, nodefault};
  123. };
  124.  
  125. class DELPHICLASS TPTTvCustomDraw;
  126. class PASCALIMPLEMENTATION TPTTvCustomDraw : public Upttreelist::TPTCustomDraw 
  127. {
  128.     typedef Upttreelist::TPTCustomDraw inherited;
  129.     
  130. public:
  131.     PNMTvCustomDraw __fastcall GetMpTvCd(void);
  132.     __property PNMTvCustomDraw mpTvCd = {read=GetMpTvCd};
  133.     
  134. protected:
  135.     __fastcall TPTTvCustomDraw(const TNMCustomDraw &aCD, int &aResult, const Graphics::TFont* aParentFont
  136.         );
  137.     
  138. public:
  139.     virtual void __fastcall Apply(void);
  140. public:
  141.     /* TPTCustomDraw.Destroy */ __fastcall virtual ~TPTTvCustomDraw(void) { }
  142.     
  143. };
  144.  
  145. class DELPHICLASS TPTLvCustomDraw;
  146. class PASCALIMPLEMENTATION TPTLvCustomDraw : public Upttreelist::TPTCustomDraw 
  147. {
  148.     typedef Upttreelist::TPTCustomDraw inherited;
  149.     
  150. public:
  151.     PNMLvCustomDraw __fastcall GetMpLvCd(void);
  152.     __property PNMLvCustomDraw mpLvCD = {read=GetMpLvCd};
  153.     
  154. protected:
  155.     __fastcall TPTLvCustomDraw(const TNMCustomDraw &acd, int &aResult, const Graphics::TFont* aParentFont
  156.         );
  157.     
  158. public:
  159.     virtual void __fastcall Apply(void);
  160. public:
  161.     /* TPTCustomDraw.Destroy */ __fastcall virtual ~TPTLvCustomDraw(void) { }
  162.     
  163. };
  164.  
  165. typedef void __fastcall (__closure *TPTTvOnNodeContextMenuEvent)(System::TObject* aSender, Comctrls::TTreeNode* 
  166.     aNode, tagPOINT &aPos, Menus::TPopupMenu* &aMenu);
  167.  
  168. typedef void __fastcall (__closure *TPTTvCustomDrawEvent)(System::TObject* aSender, TPTCustomDraw* aCD
  169.     , Comctrls::TTreeNode* aNode);
  170.  
  171. class DELPHICLASS TPTCustomTreeView;
  172. class PASCALIMPLEMENTATION TPTCustomTreeView : public Comctrls::TCustomTreeView 
  173. {
  174.     typedef Comctrls::TCustomTreeView inherited;
  175.     
  176. private:
  177.     TPTTvOnNodeContextMenuEvent mOnNodeContextMenuProc;
  178.     TPTTvCustomDrawEvent mOnPTCustomDraw;
  179.     TPTTvCustomDrawEvent mOnPTCustomDrawEx;
  180.     bool mfMenuAlreadyHandled;
  181.     System::TObject* mLastCustomDrawObj;
  182.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &aMsg);
  183.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &aMsg);
  184.     HIDESBASE MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &aMsg);
  185.     HIDESBASE MESSAGE void __fastcall CNNotify(Messages::TWMNotify &aMsg);
  186.     HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &aMsg);
  187.     MESSAGE void __fastcall WMContextMenu(Messages::TMessage &aMsg);
  188.     
  189. protected:
  190.     virtual void __fastcall CreateParams(Controls::TCreateParams &p);
  191.     virtual void __fastcall CreateWnd(void);
  192.     virtual void __fastcall DestroyWnd(void);
  193.     DYNAMIC TPTCustomDraw* __fastcall CreateCustomDraw(const TNMCustomDraw &aNMHDR, int &aResult);
  194.     virtual TPTCustomDraw* __fastcall PTCustomDraw(const TNMCustomDraw &aNMHDR, int &aResult);
  195.     DYNAMIC void __fastcall DoPreNodeContextMenu(void);
  196.     DYNAMIC void __fastcall DoNodeContextMenu(Comctrls::TTreeNode* aNode, const tagPOINT &ap);
  197.     DYNAMIC void __fastcall KeyDown(Word &key, Classes::TShiftState aShiftState);
  198.     DYNAMIC void __fastcall NodeContextMenu(Comctrls::TTreeNode* aNode, tagPOINT &aPos, Menus::TPopupMenu* 
  199.         &aMenu);
  200.     __property TPTTvCustomDrawEvent OnPTCustomDrawEx = {read=mOnPTCustomDrawEx, write=mOnPTCustomDrawEx
  201.         };
  202.     __property TPTTvCustomDrawEvent OnPTCustomDraw = {read=mOnPTCustomDraw, write=mOnPTCustomDraw};
  203.     __property TPTTvOnNodeContextMenuEvent OnNodeContextMenu = {read=mOnNodeContextMenuProc, write=mOnNodeContextMenuProc
  204.         };
  205.     
  206. public:
  207.     __fastcall virtual ~TPTCustomTreeView(void);
  208.     void __fastcall InvalidateNode(Comctrls::TTreeNode* aNode, bool afTextOnly, bool afEraseBkgnd);
  209. public:
  210.         
  211.     /* TCustomTreeView.Create */ __fastcall virtual TPTCustomTreeView(Classes::TComponent* AOwner) : Comctrls::
  212.         TCustomTreeView(AOwner) { }
  213.     
  214. public:
  215.     /* TWinControl.CreateParented */ __fastcall TPTCustomTreeView(HWND ParentWindow) : Comctrls::TCustomTreeView(
  216.         ParentWindow) { }
  217.     
  218. };
  219.  
  220. class DELPHICLASS TPTTreeView;
  221. class PASCALIMPLEMENTATION TPTTreeView : public Upttreelist::TPTCustomTreeView 
  222. {
  223.     typedef Upttreelist::TPTCustomTreeView inherited;
  224.     
  225. __published:
  226.     __property ShowButtons ;
  227.     __property BorderStyle ;
  228.     __property DragCursor ;
  229.     __property ShowLines ;
  230.     __property ShowRoot ;
  231.     __property ReadOnly ;
  232.     __property DragMode ;
  233.     __property HideSelection ;
  234.     __property Indent ;
  235.     __property Items ;
  236.     __property OnEditing ;
  237.     __property OnEdited ;
  238.     __property OnExpanding ;
  239.     __property OnExpanded ;
  240.     __property OnCollapsing ;
  241.     __property OnCompare ;
  242.     __property OnCollapsed ;
  243.     __property OnChanging ;
  244.     __property OnChange ;
  245.     __property OnDeletion ;
  246.     __property OnGetImageIndex ;
  247.     __property OnGetSelectedIndex ;
  248.     __property Align ;
  249.     __property Enabled ;
  250.     __property Font ;
  251.     __property Color ;
  252.     __property ParentColor ;
  253.     __property ParentCtl3D ;
  254.     __property Ctl3D ;
  255.     __property SortType ;
  256.     __property TabOrder ;
  257.     __property TabStop ;
  258.     __property Visible ;
  259.     __property OnClick ;
  260.     __property OnEnter ;
  261.     __property OnExit ;
  262.     __property OnDragDrop ;
  263.     __property OnDragOver ;
  264.     __property OnStartDrag ;
  265.     __property OnEndDrag ;
  266.     __property OnMouseDown ;
  267.     __property OnMouseMove ;
  268.     __property OnMouseUp ;
  269.     __property OnDblClick ;
  270.     __property OnKeyDown ;
  271.     __property OnKeyPress ;
  272.     __property OnKeyUp ;
  273.     __property PopupMenu ;
  274.     __property ParentFont ;
  275.     __property ParentShowHint ;
  276.     __property ShowHint ;
  277.     __property Images ;
  278.     __property StateImages ;
  279.     __property RightClickSelect ;
  280.     __property OnPTCustomDraw ;
  281.     __property OnPTCustomDrawEx ;
  282.     __property OnNodeContextMenu ;
  283. public:
  284.     /* TPTCustomTreeView.Destroy */ __fastcall virtual ~TPTTreeView(void) { }
  285.     
  286. public:
  287.     /* TCustomTreeView.Create */ __fastcall virtual TPTTreeView(Classes::TComponent* AOwner) : Upttreelist::
  288.         TPTCustomTreeView(AOwner) { }
  289.     
  290. public:
  291.     /* TWinControl.CreateParented */ __fastcall TPTTreeView(HWND ParentWindow) : Upttreelist::TPTCustomTreeView(
  292.         ParentWindow) { }
  293.     
  294. };
  295.  
  296. typedef void __fastcall (__closure *TPTLvOnItemContextMenuEvent)(System::TObject* aSender, Comctrls::TListItem* 
  297.     aItem, tagPOINT &aPos, Menus::TPopupMenu* &aMenu);
  298.  
  299. typedef void __fastcall (__closure *TPTLvCustomDrawEvent)(System::TObject* aSender, TPTCustomDraw* aCD
  300.     , Comctrls::TListItem* aItem);
  301.  
  302. enum TPTLvSortDirection { ptsdAsc, ptsdDesc };
  303.  
  304. enum TPTLvHeaderSortDisplayMode { ptlvNone, ptlvLeftAlign, ptlvRightOfText, ptlvRightAlign };
  305.  
  306. class DELPHICLASS TPTCustomListView;
  307. class PASCALIMPLEMENTATION TPTCustomListView : public Comctrls::TCustomListView 
  308. {
  309.     typedef Comctrls::TCustomListView inherited;
  310.     
  311. private:
  312.     TPTLvOnItemContextMenuEvent mOnItemContextMenuProc;
  313.     TPTLvCustomDrawEvent mOnPTCustomDraw;
  314.     TPTLvCustomDrawEvent mOnPTCustomDrawEx;
  315.     bool mfMenuAlreadyHandled;
  316.     System::TObject* mLastCustomDrawObj;
  317.     bool mfDragStarted;
  318.     Graphics::TCanvas* FHeaderCanvas;
  319.     int FHeaderSortColumn;
  320.     TPTLvSortDirection FHeaderSortDirection;
  321.     TPTLvHeaderSortDisplayMode FHeaderSortDisplayMode;
  322.     bool FHeaderDefaultDrawing;
  323.     int FSetHeaderODStyleSem;
  324.     HWND __fastcall GetHeaderHandle(void);
  325.     Comctrls::TViewStyle __fastcall GetViewStyle(void);
  326.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &aMsg);
  327.     HIDESBASE MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &aMsg);
  328.     HIDESBASE MESSAGE void __fastcall CNNotify(Messages::TWMNotify &aMsg);
  329.     void __fastcall SetHeaderSortColumn(int Value);
  330.     void __fastcall SetHeaderSortDirection(TPTLvSortDirection Value);
  331.     void __fastcall SetHeaderSortDisplayMode(TPTLvHeaderSortDisplayMode Value);
  332.     MESSAGE void __fastcall AMInitStage2(Messages::TMessage &aMsg);
  333.     MESSAGE void __fastcall WMContextMenu(Messages::TMessage &aMsg);
  334.     HIDESBASE MESSAGE void __fastcall WMDrawItem(Messages::TWMDrawItem &aMsg);
  335.     HIDESBASE MESSAGE void __fastcall WMNotify(Messages::TWMNotify &aMsg);
  336.     HIDESBASE MESSAGE void __fastcall WMParentNotify(Messages::TWMParentNotify &aMsg);
  337.     HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &aMsg);
  338.     
  339. protected:
  340.     HIDESBASE void __fastcall SetViewStyle(Comctrls::TViewStyle AValue);
  341.     virtual void __fastcall CreateWnd(void);
  342.     virtual void __fastcall DestroyWnd(void);
  343.     void __fastcall DrawHeader(int AIndex, const Windows::TRect &ARect);
  344.     void __fastcall DrawHeaderGlyphs(int Index, const Windows::TRect &ARect);
  345.     void __fastcall DefaultDrawHeader(int AIndex, const Windows::TRect &ARect);
  346.     void __fastcall SetHeaderODStyle(void);
  347.     DYNAMIC TPTCustomDraw* __fastcall CreateCustomDraw(const TNMCustomDraw &aNMHDR, int &aResult);
  348.     virtual TPTCustomDraw* __fastcall PTCustomDraw(const TNMCustomDraw &aNMHDR, int &aResult);
  349.     DYNAMIC void __fastcall DoPreItemContextMenu(const tagPOINT &pt);
  350.     DYNAMIC void __fastcall DoItemContextMenu(const tagPOINT &p);
  351.     DYNAMIC void __fastcall ItemContextMenu(Comctrls::TListItem* aItem, tagPOINT &aPos, Menus::TPopupMenu* 
  352.         &aMenu);
  353.     DYNAMIC void __fastcall KeyDown(Word &key, Classes::TShiftState aShiftState);
  354.     __property TPTLvCustomDrawEvent OnPTCustomDraw = {read=mOnPTCustomDraw, write=mOnPTCustomDraw};
  355.     __property TPTLvCustomDrawEvent OnPTCustomDrawEx = {read=mOnPTCustomDrawEx, write=mOnPTCustomDrawEx
  356.         };
  357.     __property TPTLvOnItemContextMenuEvent OnItemContextMenu = {read=mOnItemContextMenuProc, write=mOnItemContextMenuProc
  358.         };
  359.     __property Graphics::TCanvas* HeaderCanvas = {read=FHeaderCanvas};
  360.     __property HWND HeaderHandle = {read=GetHeaderHandle, nodefault};
  361.     __property bool HeaderDefaultDrawing = {read=FHeaderDefaultDrawing, write=FHeaderDefaultDrawing, default=1
  362.         };
  363.     __property TPTLvHeaderSortDisplayMode HeaderSortDisplayMode = {read=FHeaderSortDisplayMode, write=SetHeaderSortDisplayMode
  364.         , default=2};
  365.     __property int HeaderSortColumn = {read=FHeaderSortColumn, write=SetHeaderSortColumn, default=-1};
  366.     __property TPTLvSortDirection HeaderSortDirection = {read=FHeaderSortDirection, write=SetHeaderSortDirection
  367.         , default=0};
  368.     __property Comctrls::TViewStyle ViewStyle = {read=GetViewStyle, write=SetViewStyle, default=0};
  369.     
  370. public:
  371.     __fastcall virtual TPTCustomListView(Classes::TComponent* aOwner);
  372.     __fastcall virtual ~TPTCustomListView(void);
  373. public:
  374.     /* TWinControl.CreateParented */ __fastcall TPTCustomListView(HWND ParentWindow) : Comctrls::TCustomListView(
  375.         ParentWindow) { }
  376.     
  377. };
  378.  
  379. class DELPHICLASS TPTListView;
  380. class PASCALIMPLEMENTATION TPTListView : public Upttreelist::TPTCustomListView 
  381. {
  382.     typedef Upttreelist::TPTCustomListView inherited;
  383.     
  384. public:
  385.     __property HeaderCanvas ;
  386.     __property HeaderHandle ;
  387.     __property HeaderSortColumn ;
  388.     __property HeaderSortDirection ;
  389.     
  390. __published:
  391.     __property Align ;
  392.     __property BorderStyle ;
  393.     __property Color ;
  394.     __property ColumnClick ;
  395.     __property Columns ;
  396.     __property Enabled ;
  397.     __property OnClick ;
  398.     __property OnDblClick ;
  399.     __property Ctl3D ;
  400.     __property DragMode ;
  401.     __property ReadOnly ;
  402.     __property Font ;
  403.     __property HideSelection ;
  404.     __property IconOptions ;
  405.     __property Items ;
  406.     __property AllocBy ;
  407.     __property MultiSelect ;
  408.     __property OnChange ;
  409.     __property OnChanging ;
  410.     __property OnColumnClick ;
  411.     __property OnCompare ;
  412.     __property OnDeletion ;
  413.     __property OnEdited ;
  414.     __property OnEditing ;
  415.     __property OnEnter ;
  416.     __property OnExit ;
  417.     __property OnInsert ;
  418.     __property OnDragDrop ;
  419.     __property OnDragOver ;
  420.     __property DragCursor ;
  421.     __property OnStartDrag ;
  422.     __property OnEndDrag ;
  423.     __property OnMouseDown ;
  424.     __property OnMouseMove ;
  425.     __property OnMouseUp ;
  426.     __property ParentColor ;
  427.     __property ParentFont ;
  428.     __property ParentShowHint ;
  429.     __property ShowHint ;
  430.     __property PopupMenu ;
  431.     __property ShowColumnHeaders ;
  432.     __property SortType ;
  433.     __property TabOrder ;
  434.     __property TabStop ;
  435.     __property ViewStyle ;
  436.     __property Visible ;
  437.     __property OnKeyDown ;
  438.     __property OnKeyPress ;
  439.     __property OnKeyUp ;
  440.     __property StateImages ;
  441.     __property LargeImages ;
  442.     __property SmallImages ;
  443.     __property Checkboxes ;
  444.     __property GridLines ;
  445.     __property HotTrack ;
  446.     __property RowSelect ;
  447.     __property HeaderDefaultDrawing ;
  448.     __property HeaderSortDisplayMode ;
  449.     __property OnPTCustomDraw ;
  450.     __property OnPTCustomDrawEx ;
  451.     __property OnItemContextMenu ;
  452. public:
  453.     /* TPTCustomListView.Create */ __fastcall virtual TPTListView(Classes::TComponent* aOwner) : Upttreelist::
  454.         TPTCustomListView(aOwner) { }
  455.     /* TPTCustomListView.Destroy */ __fastcall virtual ~TPTListView(void) { }
  456.     
  457. public:
  458.     /* TWinControl.CreateParented */ __fastcall TPTListView(HWND ParentWindow) : Upttreelist::TPTCustomListView(
  459.         ParentWindow) { }
  460.     
  461. };
  462.  
  463. //-- var, const, procedure ---------------------------------------------------
  464. extern PACKAGE void __fastcall DrawDownArrow(Graphics::TCanvas* ACanvas, const Windows::TRect &ARect
  465.     , Graphics::TColor ABackgroundColor, Graphics::TColor AShadowColor, Graphics::TColor AHighlightColor
  466.     );
  467. extern PACKAGE void __fastcall DrawUpArrow(Graphics::TCanvas* ACanvas, const Windows::TRect &ARect, 
  468.     Graphics::TColor ABackgroundColor, Graphics::TColor AShadowColor, Graphics::TColor AHighlightColor)
  469.     ;
  470.  
  471. }    /* namespace Upttreelist */
  472. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  473. using namespace Upttreelist;
  474. #endif
  475. //-- end unit ----------------------------------------------------------------
  476. #endif    // UPTTreeList
  477.